home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / classica.dxr / 00065.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  262 b   |  21 lines
  1. on mouseUp
  2.   if rollOver(27) then
  3.     sound stop 2
  4.     go(1)
  5.   end if
  6.   if rollOver(28) then
  7.     sound stop 2
  8.     go("CD")
  9.   end if
  10. end
  11.  
  12. on exitFrame
  13.   global dir
  14.   if soundBusy(2) = 1 then
  15.     set dir to 1
  16.     go(the frame + 1)
  17.   else
  18.     go("CD")
  19.   end if
  20. end
  21.